home *** CD-ROM | disk | FTP | other *** search
/ Wonky Flux Batch 2019 02 / Wonky_Flux_Batch_2019-02.zip / Wonky Flux Batch 2019-02 / 022 - HO Utilities - Clock Utility System.dsk / PLAIN.TIME.bas < prev    next >
BASIC Source File  |  2019-02-16  |  267b  |  6 lines
  1. 0  REM PLAIN.TIME
  2. 10  PRINT  CHR$(4)"-basic.time"
  3. 20  CALL 970,TIME$: REM  READ THE TIME
  4. 30 YEAR$ =  STR$( INT( PEEK(49041)/2)): REM  READ THE YEAR FROM PRODOS LOC $BF91
  5. 40 FINAL$ =  LEFT$(TIME$,5) +"/" +YEAR$ + RIGHT$(TIME$,11): REM  INSERT THE YEAR
  6. 50  PRINT FINAL$